home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / util / rexx / rmh.lha / RMH / Examples / tz.rexx < prev   
OS/2 REXX Batch file  |  2001-05-24  |  279b  |  12 lines
  1. /* GetTZ() example */
  2.  
  3. l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  4.  
  5. if GetTZ("TZ") then do
  6.     say "Timeznone:      " tz.tzstn
  7.     say "Timezone offset:" tz.timezone
  8.     if tz.daylight then say "Daylight:       " tz.tzdtn
  9. end
  10. else say "Can't find ENV:TZ"
  11.  
  12.